Exercise 2_2_2: Define your Cases

library(tidyverse)
library(sjlabelled)

gp_covid <- 
  read_csv2("./data/ZA5667_v1-1-0.csv") %>%
  set_na(na = c(-99, -77, -33, 98))

1

Create a new character string (!) variable based on the age_cat variable that indicates younger people (values 0 to 9) and the elderly (value of 10).

Clues

You need the case_when() function for that purpose. Consider using a tidyselect helper such as between()

solution

gp_covid <- 
  gp_covid %>% 
  mutate(
    elderly = 
      case_when(
        between(age_cat, 0, 9) ~ "young folks",
        age_cat == 10 ~ "elderly"
      )
  )

2

Repeat the previous task with the differentation between married and unmarried people using the marstat variable.

Clues

Your variable should have 4 distinct values. You can concatenate logical operations using the & operator.

solution

gp_covid <- 
  gp_covid %>% 
  mutate(
    elderly_married = 
      case_when(
        between(age_cat, 0, 9) & marstat == 1 ~ "young folks, unmarried",
        between(age_cat, 0, 9) & marstat == 2 ~ "young folks, married",
        age_cat == 10 & marstat == 1 ~ "elderly, unmarried",
        age_cat == 10 & marstat == 2 ~ "elderly, married"
      )
  )